﻿''' <summary>
''' Atomwaffen KO
''' Sehr starke Spezialgabe schwer zu schlagen.
''' Verseucht Gegner die pro Runde bis zu 1 TP Schaden erleiden. Zu Zug Anfang des Spieler
''' </summary>
''' <remarks></remarks>
Public Class KOLevenworth
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "LEVENWORTH"
        Armee = Armeen.TI.ToString
        Musik = "Levenworth"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 6
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 6
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 6
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 4
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        RadioaktiveStaerke = New Point(2, 25)
        If OhneFunktion = False Then
            Rakete(3, "NUKLEAR", 2, Effekte.Nuklearverseuchung)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub KOLaden()
        RadioaktiveStaerke = New Point(1, 25)
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub
    Public Overrides Function GetPowerScript(ByVal Power As Integer) As KOCustom.Power.PowerScript
        Select Case Power
            Case 1
                Dim P As New KOCustom.Power.PowerScript
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectRocket(3, "NUKLEAR", 2, Effekte.Nuklearverseuchung, 0))
                Return P
            Case 2
                Dim P As New KOCustom.Power.PowerScript
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectRocket(5, "NUKLEAR", 4, Effekte.Nuklearverseuchung, 0))
                Return P
            Case Else
                Return Nothing
        End Select
    End Function
    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                RadioaktiveStaerke = New Point(2, 25)
                If OhneFunktion = False Then
                    Rakete(3, "NUKLEAR", 2, Effekte.Nuklearverseuchung)
                End If
                GabeEingesetzt()
            Case CommanderWarsGameModi.AdvanceWarsDC
                RadioaktiveStaerke = New Point(2, 25)
                If OhneFunktion = False Then
                    Rakete(3, "NUKLEAR", 2, Effekte.Nuklearverseuchung)
                End If
                GabeEingesetzt()
            Case Else
                RadioaktiveStaerke = New Point(3, 20)
                If OhneFunktion = False Then
                    Rakete(5, "NUKLEAR", 4, Effekte.Nuklearverseuchung)
                End If
                GabeEingesetzt()
        End Select

    End Sub

    Public Overrides Sub KOFrame()

    End Sub
End Class

Public Class KOBeschreibungLevenworth
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Levenworth"
        Fein = "Radioaktive Stoffe"
        Nein = "Biologische und chemische Stoffe"
        Beschreibung = New String() {"Ein durch einen", "Nuklearunfall mutierter", "Wissenschaftler. Er", "schwoert auf den", "Einsatz von nuklear", "Waffen."}
        Stil = New String() {"Seine Truppen besitzen", "nuklear Waffen, wodurch", "Gegner Radioaktiv", "verseucht werden."}
        Gabebeschreibung = New String() {"Eine Atomrakete", "schlaegt ein und", "richtet Schaden an."}
        SpezialgabeBeschreibung = New String() {"Eine grosse Atomrakete", "wird abgefeuert."}
        GabeKosten = 5
        Spezialgabekosten = 4
        Gaben = New String() {"Nuklear Rakete", "Atomkrieg"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"Atmet dieses Luft tief ein." _
                                     , "Seht euch dieses Gruen an!" _
                                     , "Die Wissenschaft siegt!" _
                                     , "Atomenergie ist nicht nur friedlich." _
                                     , "Deine Soldaten sehen krank aus!" _
                                     , "Da ist ein Atomkraftwerk explodiert!"}
        Siegsaetze = New String() {"Der Zerfall war auf eurer Seite." _
                                , "Ich hatte euch gewarnt." _
                                , "Jetzt bauen wir Atomkraftwerke."}
        Tauschsaetze = New String() {"Brauchen wir Atomwaffen?" _
                                    , "Macht durch Wissenschaft."}
        Doppelgabesaetze = New DoppelGabesatz() {}
        Niederlagesaetze = New String() {"Was meine Atomwaffen haben euch nicht vernichtet.", _
                                        "Zumindest koennt ihr nichts mit verseuchten Gebiet anfangen."}
    End Sub
End Class

